home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #1
/
Amiga Plus 1995 #1.iso
/
fish-disketten
/
fish_941-950
/
d947
/
mand2000d
/
arexx
/
printattr.mnd2
< prev
next >
Wrap
Text File
|
1994-12-13
|
3KB
|
116 lines
/* This script is supplied with the Mand2000 demo and release */
/* versions and may be freely distributed. */
/* Copyright 1993 Cygnus Software. */
/* Print the attributes of the current project, or entire program. */
/* Pass 'project' or 'global' as a parameter. Default is global. */
/* Typically this command is run from the menus which are */
/* installed by the default startup.mnd2 script. */
portname = address() /* Retrieve the current port name. */
/* If the portname does not start with MAND2000 then this script must */
/* have been run with rx, rather than from Mand2000. Therefore we */
/* need to set the port name. We do not always set the port name */
/* because it is better to let Mand2000 set it for us, so that */
/* this script can be used with windows other than the one with */
/* port name MAND2000.1. */
if (left(portname, 8) ~= "MAND2000") THEN
address 'MAND2000.1'
parse arg command
command = upper(command) /* Make sure the command is in upper case. */
say
if (command = PROJECT) THEN DO
getattr stem MYVAR
Call PrintMember(left)
Call PrintMember(right)
Call PrintMember(top)
Call PrintMember(bottom)
Call PrintMember(centerx)
Call PrintMember(centery)
/* Julia fractal types are always odd. */
if ((MYVar.FRACTALTYPE // 2) = 1) THEN DO
Call PrintMember(juliax)
Call PrintMember(juliay)
END
Call PrintMember(maxiters)
Call PrintMember(pause)
Call PrintMember(done)
Call PrintMember(permillage)
Call PrintMember(fractaltype)
Call PrintMember(drawlevel)
Call PrintMember(backdrop)
Call PrintMember(width)
Call PrintMember(height)
Call PrintMember(drawwidth)
Call PrintMember(drawheight)
Call PrintMember(numzooms)
Call PrintMember(extraacc)
Call PrintMember(precision)
Call PrintMember(arexx)
Call PrintMember(masterarexx)
Call PrintMember(filename)
Call PrintMember(file)
Call PrintMember(morphfactor)
Call PrintMember(colourmaptype)
Call PrintMember(colourmapskip)
Call PrintMember(colourmapoffset)
Call PrintMember(mousex)
Call PrintMember(mousey)
Call PrintMember(morph.making)
if (MYVAR.morph.making = 1) THEN DO
Call PrintMember(morph.framesleft)
Call PrintMember(morph.framenum)
Call PrintMember(morph.basename)
Call PrintMember(morph.endfactor)
END
Call PrintMember(movie.making)
if (MYVAR.movie.making = 1) THEN DO
Call PrintMember(movie.framesleft)
Call PrintMember(movie.framenum)
Call PrintMember(movie.basename)
Call PrintMember(movie.tweening)
Call PrintMember(movie.zoomx)
Call PrintMember(movie.zoomy)
Call PrintMember(movie.zoomamount)
END
END
ELSE DO
address MAND2000
getattr stem MYVAR
Call PrintMember(version)
/* Print the number of windows open. */
Call PrintMember(count)
/* Print all of their ARexx port names. */
DO i = 1 to MYVAR.count
Call PrintMember(i - 1)
END
Call PrintMember(priority)
Call PrintMember(palette)
Call PrintMember(zoomspeed)
Call PrintMember(workbench)
Call PrintMember(screendepth)
Call PrintMember(screenwidth)
Call PrintMember(screenheight)
Call PrintMember(displayid)
END
say
exit
PrintMember:
arg x
say x "is equal to" myvar.x
return 0